(in-package :ws-sql)
;;;; $Id: develop.lisp 2532 2007-08-08 07:58:21Z mev $


(serialize-result-set 
 (get-procedures :schema-pattern "EUIDB"))

(serialize-result-set 
 (get-procedure-descriptions :procedure-name-pattern "fib"))

(serialize-result-set 
 (get-procedure-descriptions 
  :catalog "PASSWD_CHANGE" 
  :schema-pattern "EUIDB" 
  :procedure-name-pattern "WEB_PASSWD_CHG_OCCURRED"))


;;; macros to manipulate s-xml xml-element structures
(defmacro add-attribute (element attribute value) 
  `(push (cons ,attribute ,value)
	(xml-element-attributes ,element)))

(defmacro add-element (element sub-element) 
  `(progn 
     (nreverse (xml-element-children ,element))
     (push ,sub-element 
	   (xml-element-children ,element))
     (nreverse (xml-element-children ,element))))
